home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_481 / wavemaker / wavemaker.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  67KB  |  1,628 lines
  1. /**********************************************************************/
  2. /*                                                                    */
  3. /*  WaveMaker - a program to allow a user to construct waveforms      */
  4. /*              by superposition of harmonic sine waves.              */
  5. /*                                                                    */
  6. /*                                                                    */
  7. /*  This program is intended for beginning music and physics students */
  8. /*  to help them get a better intuitive feel for constructing a       */
  9. /*  complex wave form from a sum of harmonics.                        */
  10. /*                                                                    */
  11. /*  For program operation see WaveMaker.doc.                          */
  12. /*                                                                    */
  13. /*  This program was written in SAS C, version 5.10.  It is           */
  14. /*  compiled with the enclosed lmkfile.                               */
  15. /*                                                                    */
  16. /*  WaveMaker is freely distributable as long as it is not sold for   */
  17. /*  profit.  It is permitted (encouraged) to include it on software   */
  18. /*  collections sold for a nominal sum, such as club disks and        */
  19. /*  Fish disks.  Copyright is retained by the author.                 */
  20. /*                                                                    */
  21. /*  Thanks are due to those people who posted example programs in     */
  22. /*  the BIX listings area.  One good example is worth several chapters*/
  23. /*  of explanation.  Of particular use were gad.c and menu.c. both by */
  24. /*  John Draper, and scales.c by Steven A. Bennett.                   */
  25. /*                                                                    */
  26. /*  Comments, bugs, complaints, and praise may be sent to me at       */
  27. /*                  Thomas Meyer                                      */
  28. /*                  12 Physics, Iowa State University                 */
  29. /*                  Ames, IA 50010                                    */
  30. /*                  BIX: TMEYER                                       */
  31. /*                  BITNET:MEYER@ALISUVAX                             */
  32. /*                  Internet: meyer@iastate.edu                       */
  33. /*                                                                    */
  34. /**********************************************************************/
  35. /*                                                                    */
  36. /* Update history:                                                    */
  37. /*    4/10/91    Version 1.2                                          */
  38. /*                 Wave calculation speeded up                        */
  39. /*                 Bad pointers fixed (guru causers)                  */
  40. /*                 Display of partial sums added                      */
  41. /*                 Bug fixed in display when waveform rescales        */
  42. /*    1/24/90    Version 1.1                                          */
  43. /*                 Easy game added                                    */
  44. /*                 Fixed crashes from rawkey>64                       */
  45. /*                 Closed down in correct order                       */
  46. /*                 Game doesn't interfere with amps[]                 */
  47. /*                 Random seed from timer                             */
  48. /*    1/21/90    Version 1.0 released on AAAUG club disk              */
  49. /**********************************************************************/
  50.  
  51. #include <math.h>
  52. #include <stdio.h>
  53. #include <exec/types.h>
  54. #include <exec/nodes.h>
  55. #include <exec/lists.h>
  56. #include <exec/ports.h>
  57. #include <exec/devices.h>
  58. #include <exec/memory.h>
  59. #include <hardware/custom.h>
  60. #include <hardware/dmabits.h>
  61. #include <proto/dos.h>
  62. #include <devices/audio.h>
  63. #include <devices/inputevent.h>
  64. #include <proto/intuition.h>
  65. #include <graphics/gfxbase.h>
  66. #include <graphics/gfx.h>
  67. #include <graphics/clip.h>
  68. #include <graphics/view.h>
  69. #include <graphics/rastport.h>
  70. #include <proto/layers.h>
  71.  
  72. extern struct MsgPort *CreatePort();
  73. extern VOID ModifyProp();
  74. extern VOID PrintIText();
  75.  
  76. struct IntuitionBase *IntuitionBase;
  77. struct GfxBase *GfxBase;
  78. struct Window *Window;
  79. struct Screen *Screen;
  80. struct ViewPort *ViewPort;
  81. struct RastPort *rport;
  82. struct IntuiMessage *mesg;
  83. struct IOAudio *ioa,*audchan[4],*finish[4];
  84.  
  85. /****************************************/
  86. /*  Build the Intuition Gadgets         */
  87. /****************************************/
  88.  
  89. /*      Define Logicals for GadgetIDs   */
  90.  
  91. #define HARMON0 0
  92. #define HARMON1 1
  93. #define HARMON2 2
  94. #define HARMON3 3
  95. #define HARMON4 4
  96. #define HARMON5 5
  97. #define HARMON6 6
  98. #define HARMON7 7
  99. #define INTEG   0
  100. #define UPARROW 8
  101. #define DNARROW 16
  102. #define PROPOR  24
  103. #define PLUSMINUS 32
  104. #define SELECT  64
  105. #define YES     1
  106. #define NO      0
  107. #define NBR_IOA_STRUCTS 6
  108.  
  109. /* define logicals for ErrExit */
  110.  
  111. #define SUCCESS         0
  112. #define INTUITION_FAIL  1
  113. #define GRAPHICS_FAIL   2
  114. #define PORTPN_FAIL     3
  115. #define PORTP0_FAIL     4
  116. #define AUDIOALLOC_FAIL 5
  117. #define AUDIO_FAIL      6
  118. #define USERSOUND_FAIL  7
  119. #define REFSOUND_FAIL   8
  120. #define SCREEN_FAIL     9
  121. #define WINDOW_FAIL    10
  122.  
  123. /*  Miscellaneous logicals */
  124.  
  125. #define INTUITION_REV 0
  126. #define GRAPHICS_REV 0
  127.  
  128. #define TWOPI 6.283185
  129.  
  130. /*************************************/
  131. /*  Global variables and structures  */
  132. /*************************************/
  133.  
  134. SHORT sinewave[8][513];
  135. LONG amps[8],refamps[8];
  136. LONG maxuser=1,maxref=1;
  137. LONG maxamp=16066;
  138. BYTE waveform[514],refform[514],selform[514];
  139. BYTE *usersound,*refsound;
  140. BYTE sunit=0x0F;
  141. SHORT audiochan[128] ={-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  142.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  143.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  144.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  145.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  146.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  147.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
  148.                    -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1};
  149. SHORT waiting[5]={NO, NO, NO, NO, NO};
  150. SHORT gameon=NO;
  151. UBYTE selflag,bitval[]={0x01,0x02,0x04,0x08,0x10,0x20,0x40,0x80,
  152.                         0xFE,0xFD,0xFB,0xF7,0xEF,0xDF,0xBF,0x7F};
  153. VOID ErrExit();
  154.  
  155. /*  Structures for drawing waveforms    */
  156.  
  157. USHORT userwave[513][2],refwave[513][2],selwave[513][2];
  158.  
  159. struct Border UWave_brd1 =
  160. {
  161.     64,13,                        /* LeftEdge, TopEdge              */
  162.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  163.     127,&userwave[0][0],          /* Count, *XY                     */
  164.     NULL                          /* *NextBorder                    */
  165. };
  166. struct Border UWave_brd2 =
  167. {
  168.     64,13,                        /* LeftEdge, TopEdge              */
  169.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  170.     127,&userwave[126][0],        /* Count, *XY                     */
  171.     &UWave_brd1                   /* *NextBorder                    */
  172. };
  173. struct Border UWave_brd3 =
  174. {
  175.     64,13,                        /* LeftEdge, TopEdge              */
  176.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  177.     127,&userwave[252][0],        /* Count, *XY                     */
  178.     &UWave_brd2                   /* *NextBorder                    */
  179. };
  180. struct Border UWave_brd4 =
  181. { 
  182.     64,13,                        /* LeftEdge, TopEdge              */
  183.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  184.     127,&userwave[378][0],        /* Count, *XY                     */
  185.     &UWave_brd3                   /* *NextBorder                    */
  186. };
  187. struct Border UWave_brd5 =
  188. {
  189.     64,13,                        /* LeftEdge, TopEdge              */
  190.     4,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  191.     9,&userwave[504][0],          /* Count, *XY                     */
  192.     &UWave_brd4                   /* *NextBorder                    */
  193. };
  194. struct Border RWave_brd1 =
  195. {
  196.     64,13,                        /* LeftEdge, TopEdge              */
  197.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  198.     127,&refwave[0][0],           /* Count, *XY                     */
  199.     NULL                          /* *NextBorder                    */
  200. };
  201. struct Border RWave_brd2 =
  202. {
  203.     64,13,                        /* LeftEdge, TopEdge              */
  204.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  205.     127,&refwave[126][0],         /* Count, *XY                     */
  206.     &RWave_brd1                   /* *NextBorder                    */
  207. };
  208. struct Border RWave_brd3 =
  209. {
  210.     64,13,                        /* LeftEdge, TopEdge              */
  211.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  212.     127,&refwave[252][0],         /* Count, *XY                     */
  213.     &RWave_brd2                   /* *NextBorder                    */
  214. };
  215. struct Border RWave_brd4 =
  216. { 
  217.     64,13,                        /* LeftEdge, TopEdge              */
  218.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  219.     127,&refwave[378][0],         /* Count, *XY                     */
  220.     &RWave_brd3                   /* *NextBorder                    */
  221. };
  222. struct Border RWave_brd5 =
  223. {
  224.     64,13,                        /* LeftEdge, TopEdge              */
  225.     6,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  226.     9,&refwave[504][0],           /* Count, *XY                     */
  227.     &RWave_brd4                   /* *NextBorder                    */
  228. };
  229.  
  230. struct Border SWave_brd1 =
  231. {
  232.     64,13,                        /* LeftEdge, TopEdge              */
  233.     5,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  234.     127,&selwave[0][0],           /* Count, *XY                     */
  235.     NULL                          /* *NextBorder                    */
  236. };
  237. struct Border SWave_brd2 =
  238. {
  239.     64,13,                        /* LeftEdge, TopEdge              */
  240.     5,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  241.     127,&selwave[126][0],         /* Count, *XY                     */
  242.     &SWave_brd1                   /* *NextBorder                    */
  243. };
  244. struct Border SWave_brd3 =
  245. {
  246.     64,13,                        /* LeftEdge, TopEdge              */
  247.     5,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  248.     127,&selwave[252][0],         /* Count, *XY                     */
  249.     &SWave_brd2                   /* *NextBorder                    */
  250. };
  251. struct Border SWave_brd4 =
  252. { 
  253.     64,13,                        /* LeftEdge, TopEdge              */
  254.     5,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  255.     127,&selwave[378][0],         /* Count, *XY                     */
  256.     &SWave_brd3                   /* *NextBorder                    */
  257. };
  258. struct Border SWave_brd5 =
  259. {
  260.     64,13,                        /* LeftEdge, TopEdge              */
  261.     5,0,JAM1,                     /* FrontPen, BackPen, DrawMode    */
  262.     9,&selwave[504][0],           /* Count, *XY                     */
  263.     &SWave_brd4                   /* *NextBorder                    */
  264. };
  265.  
  266. /*      Declare the character buffer for IntuitText structures 
  267.         (to be filled later).                                         */
  268.     
  269. char textbuf[6]="    0";
  270.  
  271. struct IntuiText textamp =
  272. {
  273.     1,0,JAM2,           /* FrontPen, BackPen, DrawMode            */
  274.     0,0,                /* LeftEdge, TopEdge (use offsets to set) */
  275.     NULL,               /* *ITextFont   (use default)             */
  276.     (char *)&textbuf,   /* *IText (fill later)                    */
  277.     NULL                /* *NextText                              */
  278. };
  279.  
  280. /*   Border structures for the amplitude display box                  */
  281.  
  282. USHORT BoxPairsb[9][2]=
  283. {
  284.     2,11, 53,11, 53,2, 54,2, 54,11,
  285.     55,11, 55,2, 56,2, 56,11       /* Brown shadow around int */
  286. };
  287.  
  288. struct Border brdi1b =
  289. {
  290.     -2,-2,2,0,           /* LeftEdge, TopEdge, FrontPen, BackPen   */
  291.     JAM1, 9,             /* DrawMode, Count                        */
  292.     (USHORT *)&BoxPairsb,/* *XY                                    */
  293.     NULL                 /* *NextBorder                            */
  294. };
  295.  
  296. USHORT BoxPairs[5][2]=
  297. {
  298.     0, 0,  52,0,  52,10,   0,10,  0,0  /* Coords of box  */
  299. };
  300.  
  301. struct Border brdi1 =
  302. {
  303.     -2,-2,1,0,           /* LeftEdge, TopEdge, FrontPen, BackPen   */
  304.     JAM1, 5,             /* DrawMode, Count                        */
  305.     (USHORT *)&BoxPairs, /* *XY                                    */
  306.     &brdi1b              /* *NextBorder                            */
  307. };
  308.  
  309. /*************************************/
  310. /*     First amplitude gadgets       */
  311. /*************************************/
  312.  
  313. /*  Proportional gadget  */
  314.  
  315. struct PropInfo prop_info1 =
  316. {
  317.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  318.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  319.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  320.     16,64,              /* CWidth,CHeight                         */
  321.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  322.     0,0                 /* LeftBorder, TopBorder                  */
  323. };
  324.  
  325. struct IntuiText protext1 =
  326. {
  327.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  328.     -20, 3,             /* LeftEdge, TopEdge                      */
  329.     NULL,"1:",          /* *ITextFont, *Itext                     */
  330.     NULL                /* *NextText                              */
  331. };
  332.  
  333. struct Image empty1,empty2,empty3,empty4,empty5,empty6,empty7,empty8;
  334.  
  335. struct Gadget propor1 =
  336. {
  337.     NULL,65,113,               /* *NextGadget, LeftEdge, TopEdge     */
  338.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  339.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  340.     PROPGADGET,(APTR)&empty1,  /* GadgetType, GadgetRender           */
  341.     NULL,                      /* SelectRender                       */
  342.     &protext1,0,               /* *GadgetText, MutualExclude         */
  343.     (APTR)&prop_info1,         /* SpecialInfo                        */
  344.     HARMON0|PROPOR,            /* GadgetID                           */
  345.     NULL                       /* UserData                           */
  346. };
  347.  
  348. /*   Up arrow gadget     */
  349.  
  350. USHORT updn_shadata[] = {2,7, 17,7, 17,1, 18,1, 18,7, 19,7, 19,1};
  351. struct Border updn_shadow =
  352. {
  353.     -2,-1,2,0,               /* LeftEdge, TopEdge, FrontPen, BackPen */
  354.     JAM1,7,                  /* DrawMode, Count                      */
  355.     (USHORT *)&updn_shadata, /* *XY                                  */
  356.     NULL                     /* *NextBorder                          */
  357. };
  358.  
  359. USHORT updn_data[] = {0,0, 0,6, 16,6, 16,0, 0,0};
  360. struct Border updn_border =
  361. {
  362.     -2,-1,1,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  363.     JAM1,5,                 /* DrawMode, Count                      */
  364.     (USHORT *)&updn_data,   /* *XY                                  */
  365.     &updn_shadow            /* *NextBorder                          */
  366. };
  367.  
  368. USHORT uparr_data[] = {8,2, 3,4, 13,4, 8,2};
  369. struct Border up_arr =
  370. {
  371.     -2,-1,1,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  372.     JAM1,4,                 /* DrawMode, Count                      */
  373.     (USHORT *)&uparr_data,  /* *XY                                  */
  374.     &updn_border            /* *NextBorder                          */
  375. };
  376.  
  377. struct Gadget up1 =
  378. {
  379.     &propor1,44,143,           /* *NextGadget, LeftEdge, TopEdge     */
  380.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  381.     GADGIMMEDIATE,             /* Activation                         */
  382.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  383.     NULL,                      /* SelectRender                       */
  384.     NULL,0,                    /* *GadgetText, MutualExclude         */
  385.     NULL,                      /* SpecialInfo                        */
  386.     HARMON0|UPARROW,           /* GadgetID                           */
  387.     NULL                       /* UserData                           */
  388. };
  389.  
  390. /*   down arrow gadget  */
  391.  
  392. USHORT dnarr_data[] = {3,2, 13,2, 8,4, 3,2};
  393. struct Border dn_arr =
  394. {
  395.     -2,-1,1,0,              /* LeftEdge, TopEdge, FrontPen, BackPen */
  396.     JAM1,4,                 /* DrawMode, Count                      */
  397.     (USHORT *)&dnarr_data,  /* *XY                                  */
  398.     &updn_border            /* *NextBorder                          */
  399. };
  400.  
  401. struct Gadget dn1 =
  402. {
  403.     &up1,44,152,               /* *NextGadget, LeftEdge, TopEdge     */
  404.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  405.     GADGIMMEDIATE,             /* Activation                         */
  406.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  407.     NULL,                      /* SelectRender                       */
  408.     NULL,0,                    /* *GadgetText, MutualExclude         */
  409.     NULL,                      /* SpecialInfo                        */
  410.     HARMON0|DNARROW,           /* GadgetID                           */
  411.     NULL                       /* UserData                           */
  412. };
  413.  
  414. /*  Change sign gadget  */
  415.  
  416.                 /* tie shadow for proportional gadget here since
  417.         I can't get border structures working for prop gadgets */
  418. USHORT pshad_data[] = {24,23, 38,23, 38,-45, 39,-45, 39,23, 40,23, 40,-45};
  419.  
  420. struct Border propshad =
  421. {
  422.     -2,-2,2,0,             /* LeftEdge, TopEdge, FrontPen, BackPen   */
  423.     JAM1, 7,               /* DrawMode, Count                        */
  424.     (USHORT *)&pshad_data, /* *XY                                    */
  425.     NULL                   /* *NextBorder                            */
  426. };
  427.  
  428. USHORT plus1[] = {5,3, 9,3};
  429. USHORT plus2[] = {7,2, 7,4};
  430. USHORT minus[] = {5,6, 9,6};
  431. USHORT plmi_data[] = {0,0, 0,8, 15,8, 15,0, 0,0};
  432. USHORT plmi_datas[]= {2,9, 16,9, 16,1, 17,1, 17,9, 18,9, 18,1};
  433.  
  434. struct Border plmi1 =
  435. {
  436.     -2,-1,1,0,            /* LeftEdge, TopEdge, Frontpen, BackPen */
  437.     JAM1,2,               /* DrawMode, Count                      */
  438.     (USHORT *)&plus1,     /* *XY                                  */
  439.     &propshad             /* *NextBorder                     */
  440. };
  441.  
  442. struct Border plmi2 =
  443. {
  444.     -2,-1,1,0,              /* LeftEdge, TopEdge, Frontpen, BackPen */
  445.     JAM1,2,                 /* DrawMode, Count                      */
  446.     (USHORT *)&plus2,&plmi1 /* *XY, *NextBorder                     */
  447. };
  448.  
  449. struct Border plmi3 =
  450. {
  451.     -2,-1,1,0,              /* LeftEdge, TopEdge, Frontpen, BackPen */
  452.     JAM1,2,                 /* DrawMode, Count                      */
  453.     (USHORT *)&minus,&plmi2 /* *XY, *NextBorder                     */
  454. };
  455.  
  456. struct Border plmi4 =
  457. {
  458.     -2,-1,1,0,                  /* LeftEdge, TopEdge, Frontpen, BackPen*/
  459.     JAM1,5,                     /* DrawMode, Count                     */
  460.     (USHORT *)&plmi_data,&plmi3 /* *XY, *NextBorder                    */
  461. };
  462.  
  463. struct Border plmi5 =
  464. {
  465.     -2,-1,2,0,                   /* LeftEdge,TopEdge, Frontpen,BackPen */
  466.     JAM1,7,                      /* DrawMode, Count                    */
  467.     (USHORT *)&plmi_datas,&plmi4 /* *XY, *NextBorder                   */
  468. };
  469.  
  470. struct Gadget plusminus1 =
  471. {
  472.     &dn1,44,161,               /* *NextGadget, LeftEdge, TopEdge     */
  473.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  474.     GADGIMMEDIATE,             /* Activation                         */
  475.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  476.     NULL,                      /* SelectRender                       */
  477.     NULL,0,                    /* *GadgetText, MutualExclude         */
  478.     NULL,                      /* SpecialInfo                        */
  479.     HARMON0|PLUSMINUS,         /* GadgetID                           */
  480.     NULL                       /* UserData                           */
  481. };
  482.  
  483.  
  484. struct Border sel_off_shad =
  485. {
  486.     -2,-1,2,0,                   /* LeftEdge,TopEdge, Frontpen,BackPen */
  487.     JAM1,7,                      /* DrawMode, Count                    */
  488.     (USHORT *)&updn_shadata,     /* *XY                                */
  489.         NULL                         /* *NextBorder                        */
  490. };
  491.  
  492. struct Border sel_on_shad =
  493. {
  494.     -2,-1,2,0,                   /* LeftEdge,TopEdge, Frontpen,BackPen */
  495.     JAM1,7,                      /* DrawMode, Count                    */
  496.     (USHORT *)&updn_shadata,     /* *XY                                */
  497.         NULL                         /* *NextBorder                        */
  498. };
  499.  
  500. USHORT selon_data[] = {0,0, 0,6, 16,6, 16,0, 1,0, 1,1, 15,1, 15,2,
  501.                        1,2, 1,3, 15,3, 15,4, 1,4, 1,5, 15,5};
  502.  
  503. USHORT seloff_data[] = {1,1, 15,1, 15,2,
  504.                         1,2, 1,3, 15,3, 15,4, 1,4, 1,5, 15,5};
  505.  
  506. struct Border sel_off2 =
  507. {
  508.     -2,-1,0,0,                   /* LeftEdge,TopEdge, Frontpen,BackPen */
  509.     JAM1,10,                     /* DrawMode, Count                    */
  510.     (USHORT *)&seloff_data,      /* *XY                                */
  511.         &sel_off_shad                /* *NextBorder                        */
  512. };
  513.  
  514. struct Border sel_off =
  515. {
  516.     -2,-1,5,0,                   /* LeftEdge,TopEdge, Frontpen,BackPen */
  517.     JAM1,5,                      /* DrawMode, Count                    */
  518.     (USHORT *)&updn_data,        /* *XY                                */
  519.         &sel_off2                    /* *NextBorder                        */
  520. };
  521.  
  522. struct Border sel_on =
  523. {
  524.     -2,-1,5,0,                   /* LeftEdge,TopEdge, Frontpen,BackPen */
  525.     JAM1,15,                     /* DrawMode, Count                    */
  526.     (USHORT *)&selon_data,       /* *XY                                */
  527.         &sel_on_shad                 /* *NextBorder                        */
  528. };
  529.  
  530.         struct Gadget select1 =
  531.         {
  532.         &plusminus1,44,172,        /* NextGadget, LeftEdge, TopEdge      */
  533.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  534.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  535.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  536.         (APTR)&sel_on,             /* SelectRender                       */
  537.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  538.         NULL,                      /* SpecialInfo                        */
  539.         HARMON0|SELECT,            /* GadgetID                           */
  540.         NULL                       /* UserData                           */
  541.         };
  542.  
  543. /*************************************/
  544. /*     Second amplitude gadgets       */
  545. /*************************************/
  546.  
  547. /*  Proportional gadget  */
  548.  
  549. struct PropInfo prop_info2 =
  550. {
  551.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  552.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  553.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  554.     16,64,              /* CWidth,CHeight                         */
  555.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  556.     0,0                 /* LeftBorder, TopBorder                  */
  557. };
  558.  
  559. struct IntuiText protext2 =
  560. {
  561.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  562.     -20, 3,             /* LeftEdge, TopEdge                      */
  563.     NULL,"2:",          /* *ITextFont, *Itext                     */
  564.     NULL                /* *NextText                              */
  565. };
  566.  
  567. struct Gadget propor2 =
  568. {
  569.     &select1,139,113,          /* *NextGadget, LeftEdge, TopEdge     */
  570.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  571.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  572.     PROPGADGET,(APTR)&empty2,  /* GadgetType, GadgetRender           */
  573.     NULL,                      /* SelectRender                       */
  574.     &protext2,0,               /* *GadgetText, MutualExclude         */
  575.     (APTR)&prop_info2,         /* SpecialInfo                        */
  576.     HARMON1|PROPOR,            /* GadgetID                           */
  577.     NULL                       /* UserData                           */
  578. };
  579.  
  580. /*   Up arrow gadget     */
  581.  
  582. struct Gadget up2 =
  583. {
  584.     &propor2,118,143,          /* *NextGadget, LeftEdge, TopEdge     */
  585.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  586.     GADGIMMEDIATE,             /* Activation                         */
  587.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  588.     NULL,                      /* SelectRender                       */
  589.     NULL,0,                    /* *GadgetText, MutualExclude         */
  590.     NULL,                      /* SpecialInfo                        */
  591.     HARMON1|UPARROW,           /* GadgetID                           */
  592.     NULL                       /* UserData                           */
  593. };
  594.  
  595. /*   down arrow gadget  */
  596.  
  597. struct Gadget dn2 =
  598. {
  599.     &up2,118,152,               /* *NextGadget, LeftEdge, TopEdge     */
  600.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  601.     GADGIMMEDIATE,             /* Activation                         */
  602.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  603.     NULL,                      /* SelectRender                       */
  604.     NULL,0,                    /* *GadgetText, MutualExclude         */
  605.     NULL,                      /* SpecialInfo                        */
  606.     HARMON1|DNARROW,           /* GadgetID                           */
  607.     NULL                       /* UserData                           */
  608. };
  609.  
  610. /*  Change sign gadget  */
  611.  
  612. struct Gadget plusminus2 =
  613. {
  614.     &dn2,118,161,              /* *NextGadget, LeftEdge, TopEdge     */
  615.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  616.     GADGIMMEDIATE,             /* Activation                         */
  617.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  618.     NULL,                      /* SelectRender                       */
  619.     NULL,0,                    /* *GadgetText, MutualExclude         */
  620.     NULL,                      /* SpecialInfo                        */
  621.     HARMON1|PLUSMINUS,         /* GadgetID                           */
  622.     NULL                       /* UserData                           */
  623. };
  624.  
  625.         struct Gadget select2 =
  626.         {
  627.         &plusminus2,118,172,       /* NextGadget, LeftEdge, TopEdge      */
  628.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  629.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  630.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  631.         (APTR)&sel_on,             /* SelectRender                       */
  632.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  633.         NULL,                      /* SpecialInfo                        */
  634.         HARMON1|SELECT,            /* GadgetID                           */
  635.         NULL                       /* UserData                           */
  636.         };
  637.  
  638. /*************************************/
  639. /*     Third amplitude gadgets       */
  640. /*************************************/
  641.  
  642. /*  Proportional gadget  */
  643.  
  644. struct PropInfo prop_info3 =
  645. {
  646.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  647.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  648.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  649.     16,64,              /* CWidth,CHeight                         */
  650.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  651.     0,0                 /* LeftBorder, TopBorder                  */
  652. };
  653.  
  654. struct IntuiText protext3 =
  655. {
  656.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  657.     -20, 3,             /* LeftEdge, TopEdge                      */
  658.     NULL,"3:",          /* *ITextFont, *Itext                     */
  659.     NULL                /* *NextText                              */
  660. };
  661.  
  662. struct Gadget propor3 =
  663. {
  664.     &select2,213,113,          /* *NextGadget, LeftEdge, TopEdge     */
  665.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  666.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  667.     PROPGADGET,(APTR)&empty3,  /* GadgetType, GadgetRender           */
  668.     NULL,                      /* SelectRender                       */
  669.     &protext3,0,               /* *GadgetText, MutualExclude         */
  670.     (APTR)&prop_info3,         /* SpecialInfo                        */
  671.     HARMON2|PROPOR,            /* GadgetID                           */
  672.     NULL                       /* UserData                           */
  673. };
  674.  
  675. /*   Up arrow gadget     */
  676.  
  677. struct Gadget up3 =
  678. {
  679.     &propor3,192,143,          /* *NextGadget, LeftEdge, TopEdge     */
  680.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  681.     GADGIMMEDIATE,             /* Activation                         */
  682.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  683.     NULL,                      /* SelectRender                       */
  684.     NULL,0,                    /* *GadgetText, MutualExclude         */
  685.     NULL,                      /* SpecialInfo                        */
  686.     HARMON2|UPARROW,           /* GadgetID                           */
  687.     NULL                       /* UserData                           */
  688. };
  689.  
  690. /*   down arrow gadget  */
  691.  
  692. struct Gadget dn3 =
  693. {
  694.     &up3,192,152,               /* *NextGadget, LeftEdge, TopEdge     */
  695.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  696.     GADGIMMEDIATE,             /* Activation                         */
  697.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  698.     NULL,                      /* SelectRender                       */
  699.     NULL,0,                    /* *GadgetText, MutualExclude         */
  700.     NULL,                      /* SpecialInfo                        */
  701.     HARMON2|DNARROW,           /* GadgetID                           */
  702.     NULL                       /* UserData                           */
  703. };
  704.  
  705. /*  Change sign gadget  */
  706.  
  707. struct Gadget plusminus3 =
  708. {
  709.     &dn3,192,161,              /* *NextGadget, LeftEdge, TopEdge     */
  710.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  711.     GADGIMMEDIATE,             /* Activation                         */
  712.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  713.     NULL,                      /* SelectRender                       */
  714.     NULL,0,                    /* *GadgetText, MutualExclude         */
  715.     NULL,                      /* SpecialInfo                        */
  716.     HARMON2|PLUSMINUS,         /* GadgetID                           */
  717.     NULL                       /* UserData                           */
  718. };
  719.  
  720.         struct Gadget select3 =
  721.         {
  722.         &plusminus3,192,172,       /* NextGadget, LeftEdge, TopEdge      */
  723.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  724.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  725.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  726.         (APTR)&sel_on,             /* SelectRender                       */
  727.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  728.         NULL,                      /* SpecialInfo                        */
  729.         HARMON2|SELECT,            /* GadgetID                           */
  730.         NULL                       /* UserData                           */
  731.         };
  732.  
  733. /*************************************/
  734. /*     Fourth amplitude gadgets      */
  735. /*************************************/
  736.  
  737. /*  Proportional gadget  */
  738.  
  739. struct PropInfo prop_info4 =
  740. {
  741.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  742.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  743.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  744.     16,64,              /* CWidth,CHeight                         */
  745.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  746.     0,0                 /* LeftBorder, TopBorder                  */
  747. };
  748.  
  749. struct IntuiText protext4 =
  750. {
  751.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  752.     -20, 3,             /* LeftEdge, TopEdge                      */
  753.     NULL,"4:",          /* *ITextFont, *Itext                     */
  754.     NULL                /* *NextText                              */
  755. };
  756.  
  757. struct Gadget propor4 =
  758. {
  759.     &select3,287,113,          /* *NextGadget, LeftEdge, TopEdge     */
  760.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  761.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  762.     PROPGADGET,(APTR)&empty4,  /* GadgetType, GadgetRender           */
  763.     NULL,                      /* SelectRender                       */
  764.     &protext4,0,               /* *GadgetText, MutualExclude         */
  765.     (APTR)&prop_info4,         /* SpecialInfo                        */
  766.     HARMON3|PROPOR,            /* GadgetID                           */
  767.     NULL                       /* UserData                           */
  768. };
  769.  
  770. /*   Up arrow gadget     */
  771.  
  772. struct Gadget up4 =
  773. {
  774.     &propor4,266,143,          /* *NextGadget, LeftEdge, TopEdge     */
  775.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  776.     GADGIMMEDIATE,             /* Activation                         */
  777.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  778.     NULL,                      /* SelectRender                       */
  779.     NULL,0,                    /* *GadgetText, MutualExclude         */
  780.     NULL,                      /* SpecialInfo                        */
  781.     HARMON3|UPARROW,           /* GadgetID                           */
  782.     NULL                       /* UserData                           */
  783. };
  784.  
  785. /*   down arrow gadget  */
  786.  
  787. struct Gadget dn4 =
  788. {
  789.     &up4,266,152,              /* *NextGadget, LeftEdge, TopEdge     */
  790.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  791.     GADGIMMEDIATE,             /* Activation                         */
  792.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  793.     NULL,                      /* SelectRender                       */
  794.     NULL,0,                    /* *GadgetText, MutualExclude         */
  795.     NULL,                      /* SpecialInfo                        */
  796.     HARMON3|DNARROW,           /* GadgetID                           */
  797.     NULL                       /* UserData                           */
  798. };
  799.  
  800. /*  Change sign gadget  */
  801.  
  802. struct Gadget plusminus4 =
  803. {
  804.     &dn4,266,161,              /* *NextGadget, LeftEdge, TopEdge     */
  805.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  806.     GADGIMMEDIATE,             /* Activation                         */
  807.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  808.     NULL,                      /* SelectRender                       */
  809.     NULL,0,                    /* *GadgetText, MutualExclude         */
  810.     NULL,                      /* SpecialInfo                        */
  811.     HARMON3|PLUSMINUS,         /* GadgetID                           */
  812.     NULL                       /* UserData                           */
  813. };
  814.  
  815.         struct Gadget select4 =
  816.         {
  817.         &plusminus4,266,172,       /* NextGadget, LeftEdge, TopEdge      */
  818.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  819.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  820.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  821.         (APTR)&sel_on,             /* SelectRender                       */
  822.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  823.         NULL,                      /* SpecialInfo                        */
  824.         HARMON3|SELECT,            /* GadgetID                           */
  825.         NULL                       /* UserData                           */
  826.         };
  827.  
  828. /*************************************/
  829. /*     Fifth amplitude gadgets       */
  830. /*************************************/
  831.  
  832. /*  Proportional gadget  */
  833.  
  834. struct PropInfo prop_info5 =
  835. {
  836.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  837.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  838.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  839.     16,64,              /* CWidth,CHeight                         */
  840.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  841.     0,0                 /* LeftBorder, TopBorder                  */
  842. };
  843.  
  844. struct IntuiText protext5 =
  845. {
  846.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  847.     -20, 3,             /* LeftEdge, TopEdge                      */
  848.     NULL,"5:",          /* *ITextFont, *Itext                     */
  849.     NULL                /* *NextText                              */
  850. };
  851.  
  852. struct Gadget propor5 =
  853. {
  854.     &select4,361,113,          /* *NextGadget, LeftEdge, TopEdge     */
  855.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  856.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  857.     PROPGADGET,(APTR)&empty5,  /* GadgetType, GadgetRender           */
  858.     NULL,                      /* SelectRender                       */
  859.     &protext5,0,               /* *GadgetText, MutualExclude         */
  860.     (APTR)&prop_info5,         /* SpecialInfo                        */
  861.     HARMON4|PROPOR,            /* GadgetID                           */
  862.     NULL                       /* UserData                           */
  863. };
  864.  
  865. /*   Up arrow gadget     */
  866.  
  867. struct Gadget up5 =
  868. {
  869.     &propor5,341,143,          /* *NextGadget, LeftEdge, TopEdge     */
  870.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  871.     GADGIMMEDIATE,             /* Activation                         */
  872.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  873.     NULL,                      /* SelectRender                       */
  874.     NULL,0,                    /* *GadgetText, MutualExclude         */
  875.     NULL,                      /* SpecialInfo                        */
  876.     HARMON4|UPARROW,           /* GadgetID                           */
  877.     NULL                       /* UserData                           */
  878. };
  879.  
  880. /*   down arrow gadget  */
  881.  
  882. struct Gadget dn5 =
  883. {
  884.     &up5,340,152,               /* *NextGadget, LeftEdge, TopEdge     */
  885.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  886.     GADGIMMEDIATE,             /* Activation                         */
  887.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  888.     NULL,                      /* SelectRender                       */
  889.     NULL,0,                    /* *GadgetText, MutualExclude         */
  890.     NULL,                      /* SpecialInfo                        */
  891.     HARMON4|DNARROW,           /* GadgetID                           */
  892.     NULL                       /* UserData                           */
  893. };
  894.  
  895. /*  Change sign gadget  */
  896.  
  897. struct Gadget plusminus5 =
  898. {
  899.     &dn5,340,161,              /* *NextGadget, LeftEdge, TopEdge     */
  900.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  901.     GADGIMMEDIATE,             /* Activation                         */
  902.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  903.     NULL,                      /* SelectRender                       */
  904.     NULL,0,                    /* *GadgetText, MutualExclude         */
  905.     NULL,                      /* SpecialInfo                        */
  906.     HARMON4|PLUSMINUS,         /* GadgetID                           */
  907.     NULL                       /* UserData                           */
  908. };
  909.  
  910.         struct Gadget select5 =
  911.         {
  912.         &plusminus5,340,172,       /* NextGadget, LeftEdge, TopEdge      */
  913.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  914.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  915.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  916.         (APTR)&sel_on,             /* SelectRender                       */
  917.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  918.         NULL,                      /* SpecialInfo                        */
  919.         HARMON4|SELECT,            /* GadgetID                           */
  920.         NULL                       /* UserData                           */
  921.         };
  922.  
  923. /*************************************/
  924. /*     Sixth amplitude gadgets       */
  925. /*************************************/
  926.  
  927. /*  Proportional gadget  */
  928.  
  929. struct PropInfo prop_info6 =
  930. {
  931.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  932.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  933.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  934.     16,64,              /* CWidth,CHeight                         */
  935.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  936.     0,0                 /* LeftBorder, TopBorder                  */
  937. };
  938.  
  939. struct IntuiText protext6 =
  940. {
  941.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  942.     -20, 3,             /* LeftEdge, TopEdge                      */
  943.     NULL,"6:",          /* *ITextFont, *Itext                     */
  944.     NULL                /* *NextText                              */
  945. };
  946.  
  947. struct Gadget propor6 =
  948. {
  949.     &select5,435,113,          /* *NextGadget, LeftEdge, TopEdge     */
  950.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  951.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  952.     PROPGADGET,(APTR)&empty6,  /* GadgetType, GadgetRender           */
  953.     NULL,                      /* SelectRender                       */
  954.     &protext6,0,               /* *GadgetText, MutualExclude         */
  955.     (APTR)&prop_info6,         /* SpecialInfo                        */
  956.     HARMON5|PROPOR,            /* GadgetID                           */
  957.     NULL                       /* UserData                           */
  958. };
  959.  
  960. /*   Up arrow gadget     */
  961.  
  962. struct Gadget up6 =
  963. {
  964.     &propor6,414,143,          /* *NextGadget, LeftEdge, TopEdge     */
  965.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  966.     GADGIMMEDIATE,             /* Activation                         */
  967.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  968.     NULL,                      /* SelectRender                       */
  969.     NULL,0,                    /* *GadgetText, MutualExclude         */
  970.     NULL,                      /* SpecialInfo                        */
  971.     HARMON5|UPARROW,           /* GadgetID                           */
  972.     NULL                       /* UserData                           */
  973. };
  974.  
  975. /*   down arrow gadget  */
  976.  
  977. struct Gadget dn6 =
  978. {
  979.     &up6,414,152,               /* *NextGadget, LeftEdge, TopEdge     */
  980.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  981.     GADGIMMEDIATE,             /* Activation                         */
  982.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  983.     NULL,                      /* SelectRender                       */
  984.     NULL,0,                    /* *GadgetText, MutualExclude         */
  985.     NULL,                      /* SpecialInfo                        */
  986.     HARMON5|DNARROW,           /* GadgetID                           */
  987.     NULL                       /* UserData                           */
  988. };
  989.  
  990. /*  Change sign gadget  */
  991.  
  992. struct Gadget plusminus6 =
  993. {
  994.     &dn6,414,161,              /* *NextGadget, LeftEdge, TopEdge     */
  995.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  996.     GADGIMMEDIATE,             /* Activation                         */
  997.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  998.     NULL,                      /* SelectRender                       */
  999.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1000.     NULL,                      /* SpecialInfo                        */
  1001.     HARMON5|PLUSMINUS,         /* GadgetID                           */
  1002.     NULL                       /* UserData                           */
  1003. };
  1004.  
  1005.         struct Gadget select6 =
  1006.         {
  1007.         &plusminus6,414,172,       /* NextGadget, LeftEdge, TopEdge      */
  1008.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  1009.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  1010.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  1011.         (APTR)&sel_on,             /* SelectRender                       */
  1012.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  1013.         NULL,                      /* SpecialInfo                        */
  1014.         HARMON5|SELECT,            /* GadgetID                           */
  1015.         NULL                       /* UserData                           */
  1016.         };
  1017.  
  1018. /*************************************/
  1019. /*     Seventh amplitude gadgets     */
  1020. /*************************************/
  1021.  
  1022. /*  Proportional gadget  */
  1023.  
  1024. struct PropInfo prop_info7 =
  1025. {
  1026.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  1027.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  1028.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  1029.     16,64,              /* CWidth,CHeight                         */
  1030.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  1031.     0,0                 /* LeftBorder, TopBorder                  */
  1032. };
  1033.  
  1034. struct IntuiText protext7 =
  1035. {
  1036.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  1037.     -20, 3,             /* LeftEdge, TopEdge                      */
  1038.     NULL,"7:",          /* *ITextFont, *Itext                     */
  1039.     NULL                /* *NextText                              */
  1040. };
  1041.  
  1042. struct Gadget propor7 =
  1043. {
  1044.     &select6,509,113,          /* *NextGadget, LeftEdge, TopEdge     */
  1045.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  1046.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  1047.     PROPGADGET,(APTR)&empty7,  /* GadgetType, GadgetRender           */
  1048.     NULL,                      /* SelectRender                       */
  1049.     &protext7,0,               /* *GadgetText, MutualExclude         */
  1050.     (APTR)&prop_info7,         /* SpecialInfo                        */
  1051.     HARMON6|PROPOR,            /* GadgetID                           */
  1052.     NULL                       /* UserData                           */
  1053. };
  1054.  
  1055. /*   Up arrow gadget     */
  1056.  
  1057. struct Gadget up7 =
  1058. {
  1059.     &propor7,488,143,          /* *NextGadget, LeftEdge, TopEdge     */
  1060.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  1061.     GADGIMMEDIATE,             /* Activation                         */
  1062.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  1063.     NULL,                      /* SelectRender                       */
  1064.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1065.     NULL,                      /* SpecialInfo                        */
  1066.     HARMON6|UPARROW,           /* GadgetID                           */
  1067.     NULL                       /* UserData                           */
  1068. };
  1069.  
  1070. /*   down arrow gadget  */
  1071.  
  1072. struct Gadget dn7 =
  1073. {
  1074.     &up7,488,152,               /* *NextGadget, LeftEdge, TopEdge     */
  1075.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  1076.     GADGIMMEDIATE,             /* Activation                         */
  1077.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  1078.     NULL,                      /* SelectRender                       */
  1079.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1080.     NULL,                      /* SpecialInfo                        */
  1081.     HARMON6|DNARROW,           /* GadgetID                           */
  1082.     NULL                       /* UserData                           */
  1083. };
  1084.  
  1085. /*  Change sign gadget  */
  1086.  
  1087. struct Gadget plusminus7 =
  1088. {
  1089.     &dn7,488,161,              /* *NextGadget, LeftEdge, TopEdge     */
  1090.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  1091.     GADGIMMEDIATE,             /* Activation                         */
  1092.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  1093.     NULL,                      /* SelectRender                       */
  1094.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1095.     NULL,                      /* SpecialInfo                        */
  1096.     HARMON6|PLUSMINUS,         /* GadgetID                           */
  1097.     NULL                       /* UserData                           */
  1098. };
  1099.  
  1100.         struct Gadget select7 =
  1101.         {
  1102.         &plusminus7,488,172,       /* NextGadget, LeftEdge, TopEdge      */
  1103.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  1104.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  1105.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  1106.         (APTR)&sel_on,             /* SelectRender                       */
  1107.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  1108.         NULL,                      /* SpecialInfo                        */
  1109.         HARMON6|SELECT,            /* GadgetID                           */
  1110.         NULL                       /* UserData                           */
  1111.         };
  1112.  
  1113. /*************************************/
  1114. /*     Eighth amplitude gadgets      */
  1115. /*************************************/
  1116.  
  1117. /*  Proportional gadget  */
  1118.  
  1119. struct PropInfo prop_info8 =
  1120. {
  1121.     AUTOKNOB|FREEVERT,  /* Flags                                  */
  1122.     0xFFFF,0xFFFF,      /* HorizPot, VertPot                      */
  1123.     0x0800,0x0800,      /* HorizBody, VertBody                    */
  1124.     16,64,              /* CWidth,CHeight                         */
  1125.     0x0800,0x0800,      /* HPotRes, VPotRes                       */
  1126.     0,0                 /* LeftBorder, TopBorder                  */
  1127. };
  1128.  
  1129. struct IntuiText protext8 =
  1130. {
  1131.     1, 2, JAM2,         /* FrontPen, BackPen, DrawMode            */
  1132.     -20, 3,             /* LeftEdge, TopEdge                      */
  1133.     NULL,"8:",          /* *ITextFont, *Itext                     */
  1134.     NULL                /* *NextText                              */
  1135. };
  1136.  
  1137. struct Gadget propor8 =
  1138. {
  1139.     &select7,583,113,          /* *NextGadget, LeftEdge, TopEdge     */
  1140.     14,69,GADGHCOMP|AUTOKNOB,  /* Width, Height, Flags               */
  1141.     RELVERIFY|GADGIMMEDIATE,   /* Activation                         */
  1142.     PROPGADGET,(APTR)&empty8,  /* GadgetType, GadgetRender           */
  1143.     NULL,                      /* SelectRender                       */
  1144.     &protext8,0,               /* *GadgetText, MutualExclude         */
  1145.     (APTR)&prop_info8,         /* SpecialInfo                        */
  1146.     HARMON7|PROPOR,            /* GadgetID                           */
  1147.     NULL                       /* UserData                           */
  1148. };
  1149.  
  1150. /*   Up arrow gadget     */
  1151.  
  1152. struct Gadget up8 =
  1153. {
  1154.     &propor8,562,143,          /* *NextGadget, LeftEdge, TopEdge     */
  1155.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  1156.     GADGIMMEDIATE,             /* Activation                         */
  1157.     BOOLGADGET,(APTR)&up_arr, /* GadgetType, GadgetRender           */
  1158.     NULL,                      /* SelectRender                       */
  1159.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1160.     NULL,                      /* SpecialInfo                        */
  1161.     HARMON7|UPARROW,           /* GadgetID                           */
  1162.     NULL                       /* UserData                           */
  1163. };
  1164.  
  1165. /*   down arrow gadget  */
  1166.  
  1167. struct Gadget dn8 =
  1168. {
  1169.     &up8,562,152,               /* *NextGadget, LeftEdge, TopEdge     */
  1170.     16,6,GADGHCOMP,            /* Width, Height, Flags               */
  1171.     GADGIMMEDIATE,             /* Activation                         */
  1172.     BOOLGADGET,(APTR)&dn_arr,  /* GadgetType, GadgetRender           */
  1173.     NULL,                      /* SelectRender                       */
  1174.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1175.     NULL,                      /* SpecialInfo                        */
  1176.     HARMON7|DNARROW,           /* GadgetID                           */
  1177.     NULL                       /* UserData                           */
  1178. };
  1179.  
  1180. /*  Change sign gadget  */
  1181.  
  1182. struct Gadget plusminus8 =
  1183. {
  1184.     &dn8,562,161,              /* *NextGadget, LeftEdge, TopEdge     */
  1185.     15,8,GADGHCOMP,            /* Width, Height, Flags               */
  1186.     GADGIMMEDIATE,             /* Activation                         */
  1187.     BOOLGADGET,(APTR)&plmi5,   /* GadgetType, GadgetRender           */
  1188.     NULL,                      /* SelectRender                       */
  1189.     NULL,0,                    /* *GadgetText, MutualExclude         */
  1190.     NULL,                      /* SpecialInfo                        */
  1191.     HARMON7|PLUSMINUS,         /* GadgetID                           */
  1192.     NULL                       /* UserData                           */
  1193. };
  1194.  
  1195.         struct Gadget select8 =
  1196.         {
  1197.         &plusminus8,562,172,       /* NextGadget, LeftEdge, TopEdge      */
  1198.         16,6,GADGHIMAGE,           /* Width, Height, Flags               */
  1199.         TOGGLESELECT|GADGIMMEDIATE, /* Activation                        */
  1200.         BOOLGADGET,(APTR)&sel_off, /* GadgetType, GadgetRender           */
  1201.         (APTR)&sel_on,             /* SelectRender                       */
  1202.         NULL, 0,                   /* *GadgetText, MutualExclude         */
  1203.         NULL,                      /* SpecialInfo                        */
  1204.         HARMON7|SELECT,            /* GadgetID                           */
  1205.         NULL                       /* UserData                           */
  1206.         };
  1207.  
  1208. struct Gadget *propadd[8]={&propor1,&propor2,&propor3,&propor4,
  1209.                        &propor5,&propor6,&propor7,&propor8};
  1210.  
  1211. /********************/
  1212. /*  Menu Structures */
  1213. /********************/
  1214.  
  1215.  
  1216. struct IntuiText stoptext = {
  1217.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1218.     0,0,                       /* LeftEdge, TopEdge                  */
  1219.     NULL,"Stop",               /* ITextFont, *IText                  */
  1220.     NULL                       /* *NextText                          */
  1221. };
  1222.  
  1223. struct MenuItem stopgame = {
  1224.     NULL,                      /* *NextItem                          */
  1225.     0,20,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1226.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1227.     NULL, (APTR)&stoptext,     /* MutualExclude, ItemFill            */
  1228.     NULL,NULL,                 /* Command, *SubItem                  */
  1229.     NULL                       /* NextSelect                         */
  1230. };
  1231.  
  1232. struct IntuiText hardtext = {
  1233.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1234.     0,0,                       /* LeftEdge, TopEdge                  */
  1235.     NULL,"Start-Hard",         /* ITextFont, *IText                  */
  1236.     NULL                       /* *NextText                          */
  1237. };
  1238.  
  1239. struct MenuItem starthard = {
  1240.     &stopgame,                 /* *NextItem                          */
  1241.     0,10,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1242.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1243.     NULL, (APTR)&hardtext,     /* MutualExclude, ItemFill            */
  1244.     NULL,NULL,                 /* Command, *SubItem                  */
  1245.     NULL                       /* NextSelect                         */
  1246. };
  1247.  
  1248. struct IntuiText easytext = {
  1249.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1250.     0,0,                       /* LeftEdge, TopEdge                  */
  1251.     NULL,"Start-Easy",         /* ITextFont, *IText                  */
  1252.     NULL                       /* *NextText                          */
  1253. };
  1254.  
  1255. struct MenuItem starteasy = {
  1256.     &starthard,                 /* *NextItem                         */
  1257.     0,0,80,10,                 /* LeftEdge, TopEdge, Width, Height   */
  1258.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1259.     NULL, (APTR)&easytext,     /* MutualExclude, ItemFill            */
  1260.     NULL,NULL,                 /* Command, *SubItem                  */
  1261.     NULL                       /* NextSelect                         */
  1262. };
  1263.  
  1264. struct Menu game = {
  1265.     NULL,                      /* *NextMenu                          */
  1266.     161,0,80,10,               /* LeftEdge, TopEdge, Width, Height  */
  1267.     MENUENABLED,               /* Flags                              */
  1268.     "Game",                    /* *MenuName                          */
  1269.     &starteasy                 /* First Item                         */
  1270. };
  1271.  
  1272. struct IntuiText squaretext = {
  1273.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1274.     0,0,                       /* LeftEdge, TopEdge                  */
  1275.     NULL,"Square",             /* ITextFont, *IText                  */
  1276.     NULL                       /* *NextText                          */
  1277. };
  1278.  
  1279. struct MenuItem square = {
  1280.     NULL,                      /* *NextItem                          */
  1281.     0,30,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1282.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1283.     NULL, (APTR)&squaretext,   /* MutualExclude, ItemFill            */
  1284.     NULL,NULL,                 /* Command, *SubItem                  */
  1285.     NULL                       /* NextSelect                         */
  1286. };
  1287.  
  1288. struct IntuiText sawtext = {
  1289.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1290.     0,0,                       /* LeftEdge, TopEdge                  */
  1291.     NULL,"Sawtooth",           /* ITextFont, *IText                  */
  1292.     NULL                       /* *NextText                          */
  1293. };
  1294.  
  1295. struct MenuItem sawtooth = {
  1296.     &square,                   /* *NextItem                          */
  1297.     0,20,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1298.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1299.     NULL, (APTR)&sawtext,      /* MutualExclude, ItemFill            */
  1300.     NULL,NULL,                 /* Command, *SubItem                  */
  1301.     NULL                       /* NextSelect                         */
  1302. };
  1303.  
  1304. struct IntuiText triangletext = {
  1305.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1306.     0,0,                       /* LeftEdge, TopEdge                  */
  1307.     NULL,"Triangle",           /* ITextFont, *IText                  */
  1308.     NULL                       /* *NextText                          */
  1309. };
  1310.  
  1311. struct MenuItem triangle = {
  1312.     &sawtooth,                 /* *NextItem                          */
  1313.     0,10,80,10,                /* LeftEdge, TopEdge, Width, Height   */
  1314.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1315.     NULL, (APTR)&triangletext, /* MutualExclude, ItemFill            */
  1316.     NULL,NULL,                 /* Command, *SubItem                  */
  1317.     NULL                       /* NextSelect                         */
  1318. };
  1319.  
  1320. struct IntuiText resettext = {
  1321.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1322.     0,0,                       /* LeftEdge, TopEdge                  */
  1323.     NULL,"Reset",              /* ITextFont, *IText                  */
  1324.     NULL                       /* *NextText                          */
  1325. };
  1326.  
  1327. struct MenuItem resetwave = {
  1328.     &triangle,                 /* *NextItem                          */
  1329.     0,0,80,10,                 /* LeftEdge, TopEdge, Width, Height   */
  1330.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1331.     NULL, (APTR)&resettext,    /* MutualExclude, ItemFill            */
  1332.     NULL,NULL,                 /* Command, *SubItem                  */
  1333.     NULL                       /* NextSelect                         */
  1334. };
  1335.  
  1336. struct Menu waves = {
  1337.     &game,                     /* *NextMenu                          */
  1338.     81,0,80,10,                /* LeftEdge, TopEdge, Width, Height  */
  1339.     MENUENABLED,               /* Flags                              */
  1340.     "Waveforms",               /* *MenuName                          */
  1341.     &resetwave                 /* First Item                         */
  1342. };
  1343.  
  1344. struct IntuiText quittext = {
  1345.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1346.     0,0,                       /* LeftEdge, TopEdge                  */
  1347.     NULL,"Quit",               /* ITextFont, *IText                  */
  1348.     NULL                       /* *NextText                          */
  1349. };
  1350.  
  1351. struct MenuItem quit = {
  1352.     NULL,                      /* *NextItem                          */
  1353.     0,40,120,10,                /* LeftEdge, TopEdge, Width, Height   */
  1354.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1355.     NULL, (APTR)&quittext,     /* MutualExclude, ItemFill            */
  1356.     NULL,NULL,                 /* Command, *SubItem                  */
  1357.     NULL                       /* NextSelect                         */
  1358. };
  1359.  
  1360. struct IntuiText fronttext = {
  1361.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1362.     0,0,                       /* LeftEdge, TopEdge                  */
  1363.     NULL,"Screen to Front",    /* ITextFont, *IText                  */
  1364.     NULL                       /* *NextText                          */
  1365. };
  1366.  
  1367. struct MenuItem scfront = {
  1368.     &quit,                     /* *NextItem                          */
  1369.     0,30,120,10,               /* LeftEdge, TopEdge, Width, Height   */
  1370.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1371.     NULL, (APTR)&fronttext,    /* MutualExclude, ItemFill            */
  1372.     NULL,NULL,                 /* Command, *SubItem                  */
  1373.     NULL                       /* NextSelect                         */
  1374. };
  1375.  
  1376. struct IntuiText backtext = {
  1377.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1378.     0,0,                       /* LeftEdge, TopEdge                  */
  1379.     NULL,"Screen to Back",     /* ITextFont, *IText                  */
  1380.     NULL                       /* *NextText                          */
  1381. };
  1382.  
  1383. struct MenuItem scback = {
  1384.     &scfront,                  /* *NextItem                          */
  1385.     0,20,120,10,               /* LeftEdge, TopEdge, Width, Height   */
  1386.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1387.     NULL, (APTR)&backtext,    /* MutualExclude, ItemFill            */
  1388.     NULL,NULL,                 /* Command, *SubItem                  */
  1389.     NULL                       /* NextSelect                         */
  1390. };
  1391.  
  1392. struct IntuiText expandtext = {
  1393.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1394.     0,0,                       /* LeftEdge, TopEdge                  */
  1395.     NULL,"Full Scale",         /* ITextFont, *IText                  */
  1396.     NULL                       /* *NextText                          */
  1397. };
  1398.  
  1399. struct MenuItem expand = {
  1400.     &scback,                   /* *NextItem                          */
  1401.     0,10,120,10,               /* LeftEdge, TopEdge, Width, Height   */
  1402.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1403.     NULL, (APTR)&expandtext,   /* MutualExclude, ItemFill            */
  1404.     NULL,NULL,                 /* Command, *SubItem                  */
  1405.     NULL                       /* NextSelect                         */
  1406. };
  1407.  
  1408. struct IntuiText abouttext = {
  1409.     0,1,JAM1,                  /* FrontPen, BackPen, DrawMode        */
  1410.     0,0,                       /* LeftEdge, TopEdge                  */
  1411.     NULL,"About",              /* ITextFont, *IText                  */
  1412.     NULL                       /* *NextText                          */
  1413. };
  1414.  
  1415. struct MenuItem about = {
  1416.     &expand,                   /* *NextItem                          */
  1417.     0,0,120,10,                /* LeftEdge, TopEdge, Width, Height   */
  1418.     ITEMTEXT|ITEMENABLED|HIGHCOMP, /* Flags                          */
  1419.     NULL, (APTR)&abouttext,    /* MutualExclude, ItemFill            */
  1420.     NULL,NULL,                 /* Command, *SubItem                  */
  1421.     NULL                       /* NextSelect                         */
  1422. };
  1423.  
  1424. struct Menu project = {
  1425.     &waves,                    /* *NextMenu                          */
  1426.     0,0,80,10,                 /* LeftEdge, TopEdge, Width, Height   */
  1427.     MENUENABLED,               /* Flags                              */
  1428.     "Project",                 /* *MenuName                          */
  1429.     &about                     /* First Item                         */
  1430. };
  1431.  
  1432. /****************************************/
  1433. /*     "about" requester structures     */
  1434. /****************************************/
  1435.  
  1436. struct IntuiText OK = {0,1,JAM2,5,4,NULL,"OK",NULL};
  1437.  
  1438. struct IntuiText About7 = {0,1,JAM2,8,85,NULL,
  1439.     "Click on either <OK> box to proceed",
  1440.     NULL};
  1441.     
  1442. struct IntuiText About6 = {0,1,JAM2,8,70,NULL,
  1443.     "                           internet: meyer@iastate.edu",
  1444.     &About7};
  1445.     
  1446. struct IntuiText About5 = {0,1,JAM2,8,60,NULL,
  1447.     "Ames, IA, 50011, USA.      BITNET: MEYER@ALISUVAX",
  1448.     &About6};
  1449.     
  1450. struct IntuiText About4 = {0,1,JAM2,8,50,NULL,
  1451.     "W. T. Meyer, 12 Physics, Iowa State University,",
  1452.     &About5};
  1453.     
  1454. struct IntuiText About3 = {0,1,JAM2,8,30,NULL,
  1455.     "Comments and suggestions may be sent to:",
  1456.     &About4};
  1457.     
  1458. struct IntuiText About2 = {0,1,JAM2,8,20,NULL,
  1459.     "Copyright (c) 1990, 1991 by W. T. Meyer.",
  1460.     &About3};
  1461.     
  1462. struct IntuiText About1 = {0,1,JAM2,8,10,NULL,
  1463.     "WaveMaker is freely distributable for noncommercial use.",
  1464.     &About2};
  1465.     
  1466. /*************************************/
  1467. /*   "Answers" requester structures  */
  1468. /*************************************/
  1469.  
  1470. char Answers[80];
  1471.     
  1472. struct IntuiText Answer3 = {0,1,JAM2,8,30,NULL,
  1473.     "Click on either <OK> box to proceed",
  1474.     NULL};
  1475.     
  1476. struct IntuiText Answer2 = {0,1,JAM2,8,20,NULL,
  1477.     (char *)&Answers,&Answer3};
  1478.     
  1479. struct IntuiText Answer1 = {0,1,JAM2,8,10,NULL,
  1480.     "The answers are:",&Answer2};
  1481.     
  1482. /************************************************************/
  1483. main()
  1484. /************************************************************/
  1485. {
  1486.     ULONG mclass;
  1487.     USHORT mcode,mqual,gadID,gadno,gadtyp,i;
  1488.     USHORT amptopot();
  1489.     unsigned seed;
  1490.     LONG pottoamp(),MakeWave();
  1491.     SHORT potsign,keyraw,keyup,keyrepeat;
  1492.     struct Gadget *mgadget;
  1493.     struct PropInfo *propinfo;
  1494.     VOID OpenLibs(),WaveCleanup(),MakeDisplay(),MakeSin(),MakePalette();
  1495.     VOID AmpsUpDate(),PropUpdate(),DrawBoxes(),DrawUser();
  1496.     VOID SoundOn(),SoundOff(),MenuSetup(),DoMenu(),OpenAudio();
  1497.     VOID Update(),InitArrays();
  1498.     
  1499. /*  Initialization  */
  1500.  
  1501.     OpenLibs();
  1502.     
  1503.     OpenAudio();
  1504.     
  1505.     seed = (unsigned)time(NULL);
  1506.     srand(seed);
  1507.     
  1508.     MakeSin();
  1509.     
  1510.     for (i=0;i<8;++i) amps[i]=0;
  1511.     
  1512.     InitArrays();
  1513.  
  1514.     MakeDisplay();
  1515.     
  1516.     SetMenuStrip(Window,&project);
  1517.     
  1518.   
  1519.  /*  Set up an IDCMP Read Loop  */
  1520.  
  1521.     for(;;) {
  1522.     Wait(1<<Window->UserPort->mp_SigBit);
  1523.  
  1524.     while((mesg=(struct IntuiMessage *)
  1525.        GetMsg(Window->UserPort))!=NULL)  /* Wait for IntuiMessage    */
  1526.     {
  1527.         mclass = mesg->Class;        /* Run through all of them  */
  1528.         mcode = mesg->Code;          /* Local copies of variables*/
  1529.         mqual = mesg->Qualifier;
  1530.         mgadget =(struct Gadget *)mesg->IAddress;
  1531.                 switch(mclass)
  1532.         {
  1533.            case CLOSEWINDOW: 
  1534.            {
  1535.              WaveCleanup();
  1536.             Exit(TRUE);
  1537.             break;
  1538.            }
  1539.            case REFRESHWINDOW:
  1540.            {
  1541.             DrawBoxes();
  1542.             Update(0);
  1543.             break;
  1544.            }
  1545.            case MENUPICK:
  1546.            {
  1547.             DoMenu(mcode);
  1548.             break;
  1549.            }
  1550.            case GADGETDOWN:
  1551.            {
  1552.                 gadID = mgadget->GadgetID;
  1553.             gadno = gadID&0x7;
  1554.             gadtyp = gadID&0x78;
  1555.             switch(gadtyp)
  1556.             {
  1557.               case UPARROW:
  1558.                 if (amps[gadno]>=0) ++amps[gadno];
  1559.                 else --amps[gadno];
  1560.                 Update(gadno);
  1561.                 ModifyProp(propadd[gadno],Window,NULL,
  1562.                   FREEVERT|AUTOKNOB,0xFFFF,
  1563.                   amptopot(amps[gadno]),0x0800,0x0800);
  1564.                 break;
  1565.               case DNARROW:
  1566.                 if (amps[gadno]>=0) --amps[gadno];
  1567.                 else ++amps[gadno];
  1568.                 Update(gadno);
  1569.                 ModifyProp(propadd[gadno],Window,NULL,
  1570.                   FREEVERT|AUTOKNOB,0xFFFF,
  1571.                   amptopot(amps[gadno]),0x0800,0x0800);
  1572.                 break;
  1573.               case PLUSMINUS:
  1574.                 amps[gadno]=-amps[gadno];
  1575.                 Update(gadno);
  1576.                 break;
  1577.               case PROPOR:
  1578.                 break;
  1579.                           case SELECT:
  1580.                                 if (selflag & bitval[gadno])
  1581.                                   selflag=selflag&bitval[gadno+8];
  1582.                                 else
  1583.                                   selflag = selflag | bitval[gadno];
  1584.                                 DrawUser();
  1585.                                 break;
  1586.                   }
  1587.               break;
  1588.            }
  1589.            case GADGETUP:
  1590.            {
  1591.             gadID = mgadget->GadgetID;
  1592.                 gadno = gadID&0x7;
  1593.             gadtyp = gadID&0x38;
  1594.             switch(gadtyp)
  1595.             {
  1596.               case UPARROW:
  1597.                 break;
  1598.               case DNARROW:
  1599.                 break;
  1600.               case PLUSMINUS:
  1601.                 break;
  1602.               case PROPOR:
  1603.                 potsign=1;
  1604.                 if (amps[gadno]<0) potsign=-1;
  1605.                 propinfo=(struct PropInfo *)mgadget->SpecialInfo;
  1606.                 amps[gadno]=pottoamp(propinfo->VertPot,
  1607.                     potsign);
  1608.                 Update(gadno);
  1609.                 break;
  1610.                           case SELECT:
  1611.                                 break;
  1612.               }
  1613.               break;
  1614.            }
  1615.            case RAWKEY:
  1616.                 keyrepeat=mqual&IEQUALIFIER_REPEAT;
  1617.             keyraw = mcode&0x7F;
  1618.             keyup = mcode&0x80;
  1619.             if (keyup==0&&!keyrepeat) 
  1620.                 SoundOn(keyraw,usersound);
  1621.             if (keyup!=0) SoundOff(keyraw);
  1622.             break;
  1623.         }
  1624.         ReplyMsg(mesg);              /* Give message back        */
  1625.     }
  1626.     }
  1627. }
  1628.